home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / CRMSerialDevices.p < prev    next >
Text File  |  1995-09-12  |  2KB  |  76 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:44:42 PM }
  2. {
  3.      File:        CRMSerialDevices.p
  4.  
  5.      Contains:    Communications Resource Manager Serial Device interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT CRMSerialDevices;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __CRMSERIALDEVICES__}
  26. {$SETC __CRMSERIALDEVICES__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. CONST
  36. {     for the crmDeviceType field of the CRMRec data structure    }
  37.     crmSerialDevice                = 1;
  38. {    version of the CRMSerialRecord below    }
  39.     curCRMSerRecVers            = 1;
  40.  
  41. { Maintains compatibility w/ apps & tools that expect an old style icon    }
  42.  
  43. TYPE
  44.     CRMIconRecord = RECORD
  45.         oldIcon:                ARRAY [0..31] OF LONGINT;                { ICN#    }
  46.         oldMask:                ARRAY [0..31] OF LONGINT;
  47.         theSuite:                Handle;                                    { Handle to an IconSuite    }
  48.         reserved:                LONGINT;
  49.     END;
  50.  
  51.     CRMIconPtr = ^CRMIconRecord;
  52.     CRMIconHandle = ^CRMIconPtr;
  53.  
  54.     CRMSerialRecord = RECORD
  55.         version:                INTEGER;
  56.         inputDriverName:        StringHandle;
  57.         outputDriverName:        StringHandle;
  58.         name:                    StringHandle;
  59.         deviceIcon:                CRMIconHandle;
  60.         ratedSpeed:                LONGINT;
  61.         maxSpeed:                LONGINT;
  62.         reserved:                LONGINT;
  63.     END;
  64.  
  65.     CRMSerialPtr = ^CRMSerialRecord;
  66.  
  67.  
  68. { $ALIGN RESET}
  69. { $POP}
  70.  
  71. {$ENDC} {__CRMSERIALDEVICES__}
  72.  
  73.  IMPLEMENTATION
  74.  END.
  75.  
  76.